Imports System
Imports System.Drawing

Public Class GruposDeColores

   Private mbgcolor As Color
   Private mstripecolor As Color
   Private mselectioncolor As Color
   Private mbordercolor As Color
   Private mdarkselectioncolor As Color

   Public Sub New(ByVal bgcolor As Color, ByVal stripecolor As Color, ByVal selectioncolor As Color, ByVal bordercolor As Color, ByVal darkselectioncolor As Color)

      mbgcolor = bgcolor
      mstripecolor = stripecolor
      mselectioncolor = selectioncolor
      mbordercolor = bordercolor
      mdarkselectioncolor = darkselectioncolor

   End Sub

   Public Sub New()

      Dim backgroundColor As Color = VSNetBackgroundColor()
      Dim selectionColor As Color = VSNetSelectionColor()
      Dim stripeColor As Color = VSNetStripeColor()

      mbgcolor = backgroundColor
      mstripecolor = stripeColor
      mselectioncolor = selectionColor
      mbordercolor = Color.FromArgb(255, SystemColors.Highlight)
      mdarkselectioncolor = VSNetPressedColor()

   End Sub

   Public ReadOnly Property bgColor() As Color
      Get
         Return mbgcolor
      End Get
   End Property

   Public ReadOnly Property stripeColor() As Color
      Get
         Return mstripecolor
      End Get
   End Property

   Public ReadOnly Property selectionColor() As Color
      Get
         Return mselectioncolor
      End Get
   End Property

   Public ReadOnly Property borderColor() As Color
      Get
         Return mbordercolor
      End Get
   End Property

   Public ReadOnly Property darkSelectionColor() As Color
      Get
         Return mbordercolor
      End Get
   End Property

End Class
